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Introduction 


This volume contains the description, structured flow 
charts, prints of the graphical displays, and source code to 
generate the displays for the AMPS graphical, status system. 

These graphical displays were designed by Mr. Yi of UAH and 
Mrs. Norma Whitehead of NASA. They were coded by Mr. Yi. At the 
time these displays were designed certain portions of the status 
system were not completely defined. Therefore, even though this 
code is correct and functional, additions will probably be made 
to it. This code should be used as a guide in creating any 
additional displays. 

The function of these displays is to present to the manager 
of the AMPS system a graphical status display with "hot boxes" 
that allow the manager to get more detailed status on selected 
portions of the AMPS system. This program was developed on the 
SUN work station in C using the DI-3000 graphics language from 
Precision Visuals Inc. The graphical display is the Tektronix 
4125P. The equipment is located in the AMPS laboratory at 
NASA/MSFC. 


Operation 

The development of the graphical displays is divided into 
two processes: 

1. create the screen images and store them in files on the 

computer and 

2. run the status program which uses the screen images. 

The code in init_screen generates the screen images that are 
needed by the status program laseps. The generated screens are 
stored in the file "segsave.dat." It takes a while for the 
computer to generate the screens and once generated the screens 
do not change, only the data in the screens varies with time. 
This design allows the manager to have quick response when 
examining the status of the power system. 

When laseps is run figure 1 is displayed on the Tektronix 
screen. The small rectangle in the middle of the 24 KW Load 
Center box is the mouse curser. Only the left button on the 
three button mouse is active. There are ten "hot boxes" on the 
top level LASEPS display: 

1 . SAS (75 KW) , 

2. SAS (30 KW) , 

3. 108 Cell 189 AHr Vented NiCd Bat (top box), 

4. 108 Cell 189 AHr Vented NiCd Bat (bottom box), 

5. 24 KW Load Center (AMPS), 

6 . P3 (top box) , 

7. P3 (bottom box), 

8. SSM PMAD TEST BED, 
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9. Summary Data/ and 

10. END. 

By moving the mouse into any one of the boxes and clicking the 
left mouse button, the manager can go to a more detailed status 
displays for the respective box. 

If the user selects either of the two SAS boxes figure 2 
will be displayed. This display give the relation of the space 
station to the earth eclipse or sun, the time until the next 
sunlight, the time until the next eclipse, and the solar, array 
current. The only "hot box" is the return to main box which 
returns to figure 1. 

If the user selects either of the two battery boxes figure 3 
is displayed. This display shows the voltage at each cell of the 
battery. Any key returns to figure 1. 

If the user selects the 24 KW Load Center box, figure 4 is 
displayed. This screen gives the user the voltage, current, 
switches positions, switches temperatures, and a relative 
temperature. There are two "hot boxes" which allow the user go 
get numerical data or return to figure 1. 

The design of the display for the P3 boxes is still not 
complete. At the present time if these poxes are selected a 
dummy function is called. 

If the user selects SSM/PMAD TEST BED box, figure 5 is 
displayed. The five load centers at the bottom of the display 
are selectable by the mouse. If any of the load centers are 
selected figure 6 is displayed. Figure 6 displays the voltages 
and currents at various location in the selected load center. 

If the user selects the Summary Data box, data from the 
controllers and sensors will be displayed. The design for this 
screen is not complete. 
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Figure 1 Top Level LASEPS Status Screen 
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Figure 2 SAS Status Screen 





********** BATTERY CELL DATA (Uolts) ************************ 

1 1.010 1.020 1.030 1.040 1.050 1.060 1.070 1.080 1.090 1.100 1.110 1.120 


OSJISSISISISISIDQEISS) 

.-^-r-r-^^-^njcurunjcunj 


QQOOOQQEEEQOG) 

aintLDWNMOEt-ain'i- 



OGIOOOQEGlDEEElS 

T-ai<T)rrLr»<Lor^ooa)CS^-ajfn 



CD 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

*4 

CD 

T— 

ru 

co 

'd- 

LT> 

© 

O- 

( X ) 

CD 

© 

t— 

ru 

44 

X — 

T — 

r — 


» — 

r— 

t— 

■* 

r — 

T — 

ru 

ru 

ru 

44 

• 

• 

• 

• 

• 

• 

> 

• 

• 

• 


m 

■ 

♦4 

T— 

T — 

^ — 

1 — 

^ — 

t — 

• T— 

T 

T — 

T— 

r — 

T — 

T — 

44 














♦4 

CD 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

*4 

CD 

© 

T— 

OJ 

co 

■d- 

Lf> 

© 

r- 

TO 

CD 

© 

r— 

44 

CD 

r — 

T — 

*r— 

•«: — 

T — 

T 

T 

T 

T 

T 

ru 

ru 

*4 

• 

• 

• 

• 

■ 

• 

• 

• 

■ 

• 

• 

* 

■ 

44 

T 

r — 

r — 

t— 

r — 

T — 

T 

T — 

T — 

T — 

T 

T — 

r— 

44 














44 

CD 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

44 

00 

CD 

© 

T— 

ru 

<n 

■d- 

© 

© 

r- 

00 

CD 

© 

44 

© 

© 

t — 

^ — 

r — 

r — 

T — 

r — 

T — 

r — 

T — 

T — 

ru 

44 

• 

• 

■ 

• 

• 

■ 

• 

• 

• 

• 

• 

• 

• 

44 

r— 

— 

«?— 

T — 

T — 

^ — 

■«! — 

■t — 

t — 

T 

T — 

T — 

T— 

44 














44 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

44 


00 

cd 

© 

T— 

ru 

© 

■d- 

LO 

© 

O'- 

00 

CD 

44 

<D 

© 

© 

r— ' 

r — 

T — 

T — 

T — 

T — 


— 

T — 

. T — 

44 

• 

■ 

■ 

- 

• 

■ 

■ 

■ 

- 

• 

• 

* 

■ 

44 

r— 

T 

r— 

T— 

r— 

T — 

T 

T — 

T— 

T— 

r— 

r- 

T 

44 



Figure 3 Battery Data Screen 
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Figure 4 AMPS Load Center 
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Figure 5 Power Management & Distribution System Screen 
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POUER MANAGEMENT & DISTRIBUTION SYSTEM BREADBOARD 





Figure 6 Load Center Screen 
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Appendix A 


Structured flow chart for init screen 
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Appendix B Structured flow charts for laseps 

















LflSEPS/1 0.0 SUMMRRY—DflTfl 
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LflSEPS/2.0 SflS(l) 



Return to 
Main 







LflSEPS/3.0 SflS(2) 
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LflSEPS/4.0 BRT(1) 
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LflSEPS/6.0 flMPS_LC 
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LflSEPS/6.0 fiMPS_LC/6.4 Data 
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LflSEPS/9.0 PMHD/9.4 PLDCEN (PICKID) 
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Appendix C.l Main program to create graphics displays 0.0 & 0.1 

/************* filename: init_laseps . c init_main program 

made by Kwangsoo Yi **************/ 

tinclude "const. h" 

main () 

{ 

float ratio, list [4]; 

int flag5=0, button, segnam, pickid, dumml[5], dumm2[5]; 
c_jbegin(); 

c_jdinit (DSP) ; 
c_jdevon (DSP) ; 
c_jvport (-l.,l.,-.8, .8); 
c_ j windo ( 0 . , 1 0 0 . , 0 . , 8 0 . ) ; 
c_jdevwn (DSP, -1 . , 1 . 8, . 8 ) ; 

/* c_jfsopn(2, DSP, 9, "dbg"); 
c_jsetdb(6); 

*/ c_jescap (4111, 0, 0, dumml, dumm2) ; /*dialog invisible*/ 
c_jddete(l); 


c_ j r open ( 1 ) ; 

menu ( ) ; 
c_jrclos () ; 
c_jvisbl(l, 0); 

/* 

0.1 

Draw 

segment 

1 */ 

c_jropen(2); 

init_sas () ; 
c_jrclos(); 
c_jvisbl(2, 0) ; 

/* 

0.2 

Draw 

segment 

2 */ 

c_jropen (6) ; 

init amp () ; 
c_jrclos () ; 
c_jvisbl(6, 0); 

/* 

0.3 

Draw 

segment 

6 */ 

c_jropen (9) ; 

init pm ( ) ; 
c_jrclos () ; 

/* 

0.4 

Draw 

segment 

9 */ 

c_jropen (10) ; 

/* 

0.5 

Draw 

segment 

10 */ 


isub_pm(); 
c_jrclos(); 
c_jpause (1) ; 

c_jescap (4110, 0, 0, dumml, dumm2) ; /*dialog visible*/ 
c_jssave(); /* 0.6 Save all Segments */ 

c_jdevof (DSP) ; 
c_jdend (DSP) ; 
c_jend () ; 


menut) /* 0.1 Top Screen */ 

{ 

c_jpintr(l); /*polygon fill*/ 
c_jmove (3 . , 4 . ) ; 
c_jsize (1.82, 3 . ) ; 
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c_jlstrg ("LARGE AUTONOMOUS SPACECRAFT ELECTRICAL POWER SYSTEM") 

c_ jmo ve ( 4 0 . , 0 . ) ; 

c_jlstrg {" (LASEPS) ") 

c_j color (GREEN) ; 

c_jmove(5.,25.); 

c_jdraw (95 . , 25 . ) ; 

c__jmove (5 . , 70 . ) ; 

c_jdraw ( 95 . , 70 . ) ; 

c_jpidex (CYAN ,10); 

c_jpkid(2); 

sas30 (0 . , 18 . ) ; 
c_jpkid (3) ; 

sas75 (0 . , 65. ) ; 
c_jpkid (4) ; 

bat (10 . , 25 . ) ; 

c_jpkid (5) ; . 

bat ( 1 0 . , 7 0 . ) ; 
c_jpkid(6); 

loadc (40 . , 18 . ) ; 
c_jpkid (7) ; 

pcube (58 . , 18 . ) ; 
c_jpkid(8); 

pcube (58 . , 63 . ) ; 
c_jpkid(9); 

pmad (87 . , 18 . ) ; 
c_jpkid(10); 

sdat (58 . , 10 . ) ; 
c__jpkid (11) ; 

endl (77., 10.) ; 

} 

sas30 (x, y) 
float x, y; 

{ 

c_j color (RED) ; 
c_jrect (x, y, x+9. # y+11.); 
c_ j rmove ( 1 . , 3 . ) ; 
c_jcolor (BLACK) ; 
c_jsize(1.2, 1.9); 
c_jlstrg(" (30KW) ") ; 
c_ j rmove (0.5,3.); 
c_jlstrg ("SAS") ; 

} ' 

sas75 (x, y) 
float x, y; 

{ 

c_jcolor (RED) ; 
c_jrect (x, y, x+9., y+11.); 
c_ jrmove ( 1 . , 3 . ) ; 
c_jcolor (BLACK) ; 
c_jlstrg (" (75KW) ") ; 


25 



c_jrmove (0.5,3.) ; 
c_jlstrg (" SAS") ; 

} 

bat (x, y) 
float x, y; 

{ 

char str[9];. 
c_j color (CYAN) ; 
c_jpidex (BLACK, 10) ; 
c__jrect (x+7 . , y-11., x+24., y — 1 . ) ; 
c_ j rmove ( 1 . , 7 . 8 ) ; 
c_jcolor(0); 
c_jsize (1 . 1, 1 . 6) ; 
cjjlstrg ("108 Cell"); 
c_jrmove ( 0 . , -2 . ) ; 

c_jlstrg (" 189 Ahr"); 
c_jrmove(0., -2.); 

c_j 1st rg ("Vented") ; 
c_jrmove(0., -2.); 

c_jlstrg ("NiCd Bat"); 
c_jcolor(2); 
c_jmove (x, y-2 .5) ; 

c_jsize(5., 5.); c_jfont(24); c_jhstrg ("M") 
c_jmove (x+20 . , y) ; 
c_jrdraw (0 . , -3 . ) ; 
c_jrmove (-2 . , 0.); 
c_jrdraw (4 . , 0 . ) ; 
c_jrmove (-3 . , -1 . ) ; 
c_jrdraw (2 . , 0 . ) ; 
c_jrmove (-3 . , -1 . ) ; 
c_jrdraw (4 . , 0 . ) ; 
c_j rmove (-3 . , -1 . ) ; 
c_ j rdr aw ( 2 . , 0 . ) ; 
c_j rmove (- 1 ., 0 .) ; 
c_ j rdraw ( 0 . , -3 . ) ; 
c_ j rmove ( - 1 . , 0 . ) ; 
c_ j rdraw ( 2 . , 0 . ) ; 
c_jrmove (-1 . 3, -1 . ) ; 
c_j rdraw (.6,0.) ; 
c_jmove (x+10 . , y) ; 
c_jsize (1.1, 1.6); 
c_jlstrg (i2a (145, str) ) ; 
c_j rmove (4.1, .0) ;plminus () ; 
c_jlstrg("15 Vdc"); 

} 

loadc(x, y) 
float x, y; 

{ 


c_jpidex (CYAN ,10); 
c_jcolor (RED) ; 



y+59. ) ; 


c_jrect (x, y, x+13., 
c_ j rmo ve ( 3 . , 50 .) ; 
c_jcolor (BLACK) ; 
c_jsize (1.3, 1.9); 
c_jlstrg ("24 KW") ; 
c_j rmove (0 . , -10 . ) ; 

c_jlstrg ("Load "); 
c_jrmove (0 . , -10 . ) ; 

c_j 1st rg ("Center") ; 
c_jrmove (0 . , -10 . ) ; 
c_jlstrg (" (AMPS) ") ; 


pcube(x, y) 
float x, y; 

{ 

char str [ 9] ; 
c_jcolor(RED); 

c_jrect (x, y, x+10., y+12.); 

C_jcolor (BLACK) ; 
c_jrmove( 3.3,3.); 
c_jsize (2 . 9, 4 . 4) ; 
c_jhstrg ("P [BSUP] 3 [ESUP] ") ; 
c_ j rmove ( 8 . , 4 . ) ; 
c_jsize (1 . 1, 1 . 6) ; 
c_jcolor (GREEN) ; 

c_jlstrg (i2a (120, str)); c_ j rmove ( 4 . , 0. 
plminusO ,* c_jlstrg ( " . 5% Vdc"); 

} 

pmad(x, y) 
float x, y; 

{ 

c_jcolor (RED) ; 

c_jrect (x, y, x+13., y+59.); 
c_jcolor (BLACK) ; 
c_ j rmove ( 3 . , 5 0 . ) ; 
c_jsize(1.3, 1.9); 
c_jlstrg ("SSM /"); 
c_ j rmove ( 0 . , - 1 0 . ) ; 

c_j lstrg ( "PMAD ") ; 
c_ j rmove ( 0 . , - 1 0 . ) ; 

c_jlstrg ( "TEST ") ; 
c_j rmove (0 . , -10 . ) ; 
c_j lstrg ("BED "); 


sdat (x, y) 
float x, y; 

{ 

c_jcolor (RED) ; 

c_jrect (x, y, x+13., y + 6 . ) ; 

c_jcolor (BLACK) ; 
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c_jrmove (3 . , 1 . ) ; 
c_jsize (1.4, 1.4); 
c_jlstrg ("Data ") ; 
c_ j rmove ( -2 . , 2 . ) ; 

c_j 1 st rg ("Summary "); 

} 

endl (x, y) 
float x, y; 

{ 

c_jcolor (RED) ; 
c_jrect (x, y, x+13., y+6.); 
c_jcolor (BLACK) ; 
c_ j rmove ( 3 . , 2 . ) ; 
c_jsize (1.4, 1.4); 
c_jlstrg(" END ") ; 

} 

plminus () 

{ 

c_jlstrg ( "+" ) ; 
c_ j rmove (0.1, .4); 

c_jlstrg ("_” ) ; 
c_ j rmove (1., -.4); 


/******* enc l of file "init_laseps . c" ********/ 
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Appendix C.2 — 0.2 Draw segment 2 

/************* filename: init_sas.c 0.2 Draw segment 2 

(SAS Screen) **************/ 

#include "const. h" 

init_sas () 

{• 

static float rad, v, am, st, t; 
int i, j, button, segnam, pickid; 
char str[20]; 
rad=2 . / 

orbit (rad, 16., 50.); 
sdata (41 . , 30 . ) ; 
stomain(60., 10.); 


orbit (rad, x, y ) 
float rad, x, y ; 

{. 

static float radius=14.; 

c_jcolor (GREEN) ; c_jpintr (1) ; 
c_jpidex (YELLO, 100) ; 

c_jsectr(x, y, 0., radius, 0, -90., 90.); 
c_jpidex (GREY, 100) ; 

C_jcolor (GREY) ; 

c_jsectr(x, y, 0., radius, 0, 270., 90.); 
c_jpintr(0); c_jcolor (GREEN) ; 

c_jcircl (x, y, 0., radius+1.9, 0.); 


sdata(x, y) 
float x, y; 

{ 

c_jpidex (WHITE, 100) ; c_jpintr (1) ; 
c_jrect (x, y, x+59., y+40.); 

c_jrmove(2., 32.); 
c_jcolor (BLACK) ; 
c_jsize(1.0, 1.9); 

c_jlstrg ("Sun sensor status (ECLIPSE/SUN) :"); 
c_jrmove(0., -6.); 

c_jlstrg(" Time until next sunlight :"); 

c_ j rmove ( 0 . , - 6 . ) ; 

c_jlstrg(" Time until next eclipse :"); 

c_ j rmove ( 0 . , - 6 . ) ; 

c_jlstrg(" Solar array current :"); 

} 

stomain(x, y) 
float x, y; 

29 



c_jcolor (ORANG) ; 
c_jrect (x, y, x+23., y+8.); 
c_jrmove(3./ 4.); 
c_jsize (0 . 92, 1.2); 
c_jcolor (BLACK) ; 

c_jlstrg ("Back to Main"); 


/******* End of fii e "init sas.c" ********/ 
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Appendix C.3 — 0.3 Draw segment 6 

/************* filename: init_amp.c — 0.3 Draw segment 6 
♦include "const. h" 




init_amp () 

{ 

static float v, am, st, t; 

static float volt [10] [2], amp[10][2], swtemp[10] [2] , temp[10]; 
static int onof, onoff [ 10] [2] , onl23; 
int i, j, button, segnam, pickid; 
amenu ( ) ; 
chart ( ) ; 
c__jpkid (1) ; 

data (67., 6.) ; 
c_jpkid (2) ; 

ltomain(86., 6.); 


amenu ( ) 
{ 


c_jpintr (1) ; 
c_jpidex (CYAN , 100); 
c_jmove (29 , , 1 . ) ; 
c_jsize (2.72, 2.); 
c_jlstrg ("AMPS LOAD CENTER"); 
c_jrect(0.0, 4.5, 100., 80.); 
c_jpidex (YELLO, 900) ; 

c_jrect(8.0, 39.5, 98., 55.); 
c jpidex (BLACK, 100 ); 


c_jcolor (BLACK) ; 
c_jrect(.0, 60., 
c_jsize(l.l, 2.) 
c_jrmove ( 0 . , . 4) 
c_jrect(.0, 65., 
c_jrmove ( 0 . , . 4) 
c_jrect ( . 0, 70 . , 
c_jrmove ( 0 . , . 4) 
load (10 . 5, 47., 
load (19. 0, 47., 
load (27.5, 47., 
load (36.0, 47., 
load (44.5, 47., 
load (53 . 0, 47., 
load(61.5, 47., 
load(70.0, 47., 
load (78.5, 47., 
load (87.0, 47., 


load(x, y, kw, ch) 


94., 60.3); 

; c_jlstrg( "CHANNEL 

91., 65.3); 

; c_j 1 st rg ("CHANNEL 

88., 70.3); 

; c_jlstrg ("CHANNEL 
"1", 3); 

"2", 3); 

"4", 3); 

"1", 5); 

”2", 5); 

"4", 5); 

"l”, 6); 

" 2 ", 6 ); 

"4", 6); 

"3", 7); 


3") ; 
2 ") ; 
1 ”) ; 
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float x, y; 

int ch; char kw[]; 

{ 

int flag=0; 
float rad = .7; 

c_jpidex (WHITE, 19900) ; 

c_jcircl (x, y, 0., rad, 1); 
c_jcircl (x, y+4., 0., rad, 1); 
c_jcircl (x+3 . , y, 0., rad, 1) ; 
c_jcircl (x+3 . , y+4., 0., rad, 1); 
c_jmove (x+rad, y) ; c_jrdraw(.0, -2.); 
c_ j rdr aw ( 3 . , 0 . ) ; 
if (ch==7 ) { 

c_jcircl (x+6 . , y, 0., rad, 1); 
c_jcircl (x+6 . , y+4., 0., rad, 1) ; 
c_jrmove (rad, -4.); c__jrdraw ( . 0, -2 
c_jrdraw (-3 . , 0.); 

} 

c_jmove (x+3+rad, y) ; c_jrdraw(.0, -4.) 

c__jrmove (-4 . , -2.50); 

c_jrrect ( 6 . 5, 2.5); 

c_jrmove(.9, .0); c_jlstrg(kw); 

c_jrmove ( 2.,.0); 

c_jlstrg ("KW") ; 

if (ch & 1) { 

c_jmove (x+rad, y+4.); 
c_jrdraw(0., 19.); 
flag++; 

} 

if (ch & 2) { 

c_jmove (x+rad+flag*3, y+4.); 
c_ j rdr aw ( 0 . , 14.); 
flag++; 

} 

if (ch & 4) { 

c_jmove (x+rad+flag*3, y+4.); 
c_ j rdr aw ( 0 . , 9 . ) ; 
flag++; 

} 

} 

chart ( ) 

{ 

int i; 

c_jpidex (WHITE, 19900); 

c_jrect(1.5, 17., 97., 38.); 
c_jm° ve (10., 17.); 
c_ j rdr aw ( 0 . , 21.); 
for(i=0; i<6; i++) { 

c_jmove(1.5, 20.+i*3.); 
c_jrdraw (95 . 5, 0.); 

} 
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for(i=l; i<10; i++) { 

c_jmove (8 . 5*i+10 . , 17,); 
c_jrdraw(0., 21.); 

} 

c_jmove<2.1, 17.4); 
c_jsize(0.8, 1.6); 
c_jlstrg ("Ref . Temp"); 
c_jrmove (0 . ,. 3.); ' 

c_jlstrg("SW 2 Temp"); 
c_jrmove(0., 3.); 
c_jlstrg("SW 1 Temp"); 
c_jrmove(0., 3.); 
c__j 1st rg ("Switch on"); 
c_jrmove(0., 3.); 
c__jlstrg("Current"); 
c_jrmove (0 . , 3.); 
c_jlstrg ("Voltage”) ; 
c__jrmove (10 . , 3.); 
c__jsize <1 . 048, 1.6); 

c_jlstrg ("RPC1 RPC2 RPC3 RPC4 RPC5 RPC6 RPC7 
RPC9 RPC10") ; 

} 

data(x, y) 
float x, y; 

{ 

c__jrect (x, y, x+11., y+5.); 
c_jrmove(3., 2.); 
c_jsize (0 . 92, 1.3); 
c_jlstrg(" Data"); 


ltomain(x, y) 
float x, y; 

{ 

c_jrect (x, y, x+11., y+5.); 
c_ j rmove ( 1 . , 2 . ) ; 
c_jsize (0.82, 1 . ) ; 
c_jlstrg ("Back to Main”); 


/******* end Q f fij[ e «init amp.c" ********/ 


RPC8 
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Appendix C.4 — 0.4 Draw segment 9 

/************* filename: init_pm.c 0.4 Draw segment 9 

(PMAD Screen) **************/ 


linclude "const. h" 

init_pm ( ) 

{ 

float ratio/ list [4]; 

int flag, button, segnam, pickid, dumml[5], dumm2[5]; 
c_jpintr (1 ) ; 
c_jpidex (WHITE, 100); 
c_jmove (6 . , 1 . ) ; 
c_jsize (1 . 72, 2.); 

c_ jl St rg ("POWER MANAGEMENT & DISTRIBUTION SYSTEM BREADBOARD ”) 
c_jrect(0.0, 4.5, 100., 80.); 
c_jpidex (CYAN , 900); 
c_jcolor (BLACK) ; 
c_jpkid (1) ; 

pload (0) ; 
c_jpkid (2) ; 

pload (1) ; 
c_jpkid (3) ; 

pload (2) ; 
c_jpkid (4 ) ; 

pload (3) ; 
c_jpkid (5) ; 

pload (4) ; 
c_jpkid (9) ; 

p2main (92 . , 3 . ) ; 
pdcua (5 . , 55 . ) ; 
pdcub (77 . , 55 . ) ; 

Pbus ( ) ; 

} 

pload (n) 
int n; 

{ /* load center */ 

char str[10]; 
int i, d=20; 

float x, y, offset = 3.5; 
x=n*d+of fset ; y=8.; 
c_jmove(x, y) ; 
c_jpidex (CYAN , 900); 
c_jrrect( 11., 9.); 

c_jpidex (YELLO, 1) ; 
c_jrrect ( 2.5, 4.); 
c_jsize ( . 8, 1 . ) ; 
c_ j rmove ( . 1 , .3); 
c_jlstrg ("SIC") ; 
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cj rmove (-0 . 1, 1.7); 
c_jrdraw (2 . 5, 0.); 
cjrmove (-2 . 5, 0.0); 
cjrmove (.1, .3) ; 
cj lstrg ("SIC" ) ; 
c_ j rmove (-0 . 1, 1.7); 
cjpidex (GREEN, 1) ; 
c_jrrect ( 2.5, 2.); 
c_ j rmove ( . 1 , . 3 ) ; 
cjlstrg ("ADC") ; 
c_jrmove (-0 . 1, 1.7); 
cjpidex (ORANG, 1) ; 
c_jrrect ( 3 . , 3 . ) ; 
c_ j rmove ( . 3 , .3); 
c_jlstrg ("LLP") ; 
c_ j rmove (-1.5, 3.3); 
c_j lstrg ( "CENTER" ) ; 
c_ j rmove (6.5, 0 . ) ; 
cjlstrg ("A") ; 
cjrmove (3 . 7, 0.); 
c_j lstrg ("B" ) ; 
c_jrmove (-9 . 9, 1.2); 
cjlstrg ("LOAD") ; 

cjmove (x+4 . 5, y+9.); c_jrdraw(0., -5.); 
c_j rmove (- . 73, 0.); c_jrdraw (2 . 2, .0); 
c_jsize (1 . 34, 1.34); cJfont(24); 
for (i=0; i<2; i++) { 

c__jmove (x+3 . 9+2 . l*i, y); 
c_jrdraw(0., 2.0); 

c_ j rmove (.0, 0.8); c_jrdraw(0., 1.2) 
cj rmove (-. 67, -2.1); 
cjhstrg ("R" ) ; 

} 

cjmove (x+8 . , y+9.); c_jrdraw(0., -5.); 
c_j rmove (- . 61, 0.); cjrdraw (2 . 2, .0); 
for (i=0; i<2; i++) { 

cjmove (x+7 . 5+2*i, y) ; 
c_ j rdr aw ( 0 . , 2.0); 

c_ j rmove (.0, 0.8); c_jrdraw(0., 1.2) 
c_j rmove (- . 67, -2.1); 
cjhstrg ("R") ; 

} 

c_jfont (1) ; 

} 

pdcub(x, y) 
float x, y; 

{ 

int i; 

float dx [4] , dy [4] ; 
char str[10]; 

c_jpidex (CYAN , 900); 
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c_jrect( x, y, x+20., y+14.); 
c_ j rmove ( . 5 / 12.); 
c_jsize ( . 9, 1 . 5) ; 
c_jlstrg ("PDCU (B) " ) ; 

c_jmove (x+3 . , y+5.7); c_jrdraw (12 . 0, .0) 
c_jsize(1.5, 1.5); c_jfont(24); 
for (i=l; i<6; i++) { 
c_jmove (x+3*i, y) ; 
c_ j rdr aw ( 0 . , 2.7); 

c_ j rmove (.0, 1.66); c_jrdraw(0. / 1.4) 
c_j rmove (- . 75, -3.0); 

. c_jhstrg ("R") ; 

} 

c_jfont (1) ; 
c_jmove (x+9 . , y+5.7); 
c_ j rdr aw (0.0, 8.3); 
c_jrmove ( 0 . , -4 . 0 ) ; 

dx[0]=-.8; dx[l]=.8; dx [2] =. 8; dx[3]=-.8; 
dy [ 0 ] = 0.; dy[l]=-.8; dy[2]=.8; dy[3]=.8; 
c_jpidex (BLACK, 900); 
c_j rplgn (dx,dy, 4) ; 
c_jsize (.8,1.4); 

c_jrmove (1 . 2, -0.3); c_jlstrg ("RBI") ; 
c_jrect (x+8 . 8, y+14., x+9. 2, y+19.); 
c_jrect (x+9 . 2, y+19., x+23., y+18.6); 
c_jrmove(.3, 0.3); c__jsize(.8, 1.3); 
C_jlStrg( "POWER STAR BUS B"); 
c_jmove(x, y+14.); 
c_jpidex (ORANG, 1) ; 
c_jsize ( . 6, 1 . ) ; 
c_jrrect ( 3 . , 3.); 
c_jrmove(.3, .3); 
c_jlstrg ("LLP") ; 
c_j rmove (2 . 7, -.3); 
c_jpidex (GREEN, 1) ; 
c_jrrect ( 2.5, 2.); 

c_ j rmove (.2,0.3); / 

c_jlstrg ("ADC") ; 
c_ j rmove (2.3, - . 3 ) ; 
c_jpidex (YELLO, 1) ; 
c_jrrect ( 2.5, 2.); 
c_ j rmove (.2,0.3); 
c_jlstrg ("SIC") ; 

} 

pdcua(x, y) 
float x, y; 

{ 

int i; 

float dx[4], dy[4]; 
char str[10]; 

c jpidex (CYAN , 900); 
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c_jrect ( x, y, x+20., y+14.); 
c_jrmove(.5, 12.); 
c_jsize ( . 9, 1.5); 
c_jlstrg ("PDCU (A) " ) ; 

c_jmove (x+3 . , y+5.7); c_jrdraw (12 . 0, .0) 

c_jsize(1.5, 1.5); c_jfont.(24) ; 
for (i = l; i<6; i++) { 
c_jmove (x+3*i , y) ; 
c_jrdraw(0., 2.7); 

c_jrmove(.0/ 1.66); c_jrdraw(0., 1.4) 
c_jrmove (- . 75, -3.0); 
c__jhstrg ("R" ) ; 

} 

c_jfont(l); 
c_jmove (x+9. , y+5.7); 
c_ j rdr aw ( 0 . 0 , 8 . 3 ) ; 
c_jrmove ( 0 . , -4.0); 

dx[0]=-.8; dx[l]=.8; dx[2]=.8; dx[3]=-.8; 
dy [ 0 ) = 0.; dy[l]=-.8; dy[2]=.8; dy[3]=.8; 
c_jpidex (BLACK, 900); 
c_jrplgn (dx, dy, 4) ; 
c_jsize ( . 8, 1.4); 

c_ j rmove ( 1 . 2 , -0.3); c_jlstrg ("RBI" ) ; 
c_jrect (x+8 . 8, y+14., x+9. 2, y+19.); 
c_jrect (x-5 . 0, y+18.6, x+9. 2, y+19.); 
c_jrmove(.6, .6); c_jsize(.8, 1.3); 
c_ jl st rg ("POWER STAR BUS A"); 
c_jmove (x+12 . , y+14.); 
c_jpidex (YELLO, 1) ; 
c_jrrect ( 2.5, 2.); 
c_jsize ( . 6, 1 . ) ; 
c_jrmove(.2, 0.3); 
c_jlstrg ("SIC") ; 
c_j rmove (2 . 3, -.3); 

C_jpidex (GREEN, 1) ; 
c_jrrect ( 2.5, 2.); 
c_jrmove(.2, 0.3); 
c_jlstrg ("ADC") ; 
c_j rmove (2 . 3, -.3); 
c_jpidex (ORANG, 1) ; 
c_jrrect ( 3., 3.); 
c_ j rmove ( . 2 , 0.3); 
c_jlstrg ("LLP") ; 


pbus () 

{ 

int i ; 

float abdist=3.5, width=.15; 
c_jpidex (BLUE , 900); 

c_jrect (8 . -width, 17., 8.+width, 55.); 
for (1=1; i<5; i++) { 
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c_jrect (i*3 . +8 . -width, i*4.+24., i*3 . +8 . +width, 55..); 
c_jrect (i*3.+8., i*4.+24., i*20.+8., i*4 . +24 . +2*width) ; 
c_jrect (i*20 . +8 . -width, 17., i*20 . +8 . +width, i*4 . +24 . +2*width) ; 

} 

for (i=l; i<5; i++) { 

c_jrect (i*3 .+77 .-width, i*4.+20., i*3 .+77 .+width, 55.); 
c_jrect (i*20 . -8 . 5, i*4.+20., i*3.+77., i*4.+20.+2*width); 
c_jrect(i*20 . -8 . 5-width, 17., i*20 . -8 . 5+width, i*4 . +20 . +2*width) 

} 

c_jrect (92 . -width, 17., 92.+width, 55.); 

} 

p2main(x, y) 
float x, y; 

{ 

c_jpidex (CYAN , 900); 
c_jrect(95., 19., 99., 35.); 
c_jsize (0 . 72, 1.3); 
c_ j rmove (.5,4.); 
c_jlstrg ("Main" ) ; 
c_jrmove(0., 3.); 
c_jlstrg(" to "); 
c_ j rmove ( 0 . , 3 . ) ; 
c_jlstrg ("Back") ; 

} 

/******** enc j 0 f fix e *'init_pm. c" *********/ 
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Appendix C.5 — 0.5 Draw segment 10 

/************* filename: isub_pm.c 0.5 Draw segment 10 

(PMAD Sub-screen) ***************\ 

# include " const. h" 

i sub_pm ( ) 

{ 

float ratio, list [4]; 

int flag, button, segnam, pickid, dumml[5], dumm2[5]; 
c_jpintr(l); 
c__jpidex (WHITE, 100); 
c_jmove (16 . , 1 . ) ; 
c_jsize (1.72, 2 . ) ; 
c_jlstrg(" LOAD CENTER"); 
c_jrect(0.0, 4.5, 100., 80.); 
busa (28 . , 70 . ) ; 
busb (68 . , 70.); 
lbus (BLUE , 12., 50., 38.); 
lbus (BLACK , 20., 31., 19.); 
c_jpkid(l); 

back (92 . , 3 . ) ; 

} 

busb(x, y) 
float x, y; 

{ 

int i; 

float width=.40; 
c_jpintr (1) ; 
c_jpidex (BLACK, 900); 
c_j color (BLACK) ; 

c_jmove (x+4 . , y+2.5); 
c_jlstrg ("BUS B"); 
c_jrect (x-width, y-width, 90., y) ; 
c_jrect(90., y-1.4, 90.25, y+1.0); 
c_jrect (90 . 75, y-1.4, 91.0, y+1.0); 
c__jrect ( 91 . 0, y-width, 100., y); 
c_jrect (x, y, x-width, y-39.); 
c_jpintr (0) ; 

c_jcircl (x+5 . , y-width/2, 0., 0.9, 1); 
c_jcircl (x-width/2, y-15.0, 0., 0.9, 1); 


busa(x, y) 
float x, y; 

{ 

int i ; 

float width=.40; 
c_jpintr (1) ; 
c_jpidex (BLUE , 900); 
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C_jcolor (BLUE ) ; 

c_jmove(14., y+2.5); 
c_jlstrg ( "BUS A"); 
c_jrect(0., y-width, 10., y); 

c_jrect(10., y-1.4, 10.25, y+1.0); 
c_jrect (10 . 75, y-1.4, 11.0, y+1.0); 
c_jrect (11 . 0, y-width, x, y) ; 
c_jrect(x, y, x-width, y-20.); 
c_jpintr(0); 

c_jcircl (x-13 . , y-width/2, 0., 0.9, 1); 
c_jcircl (x-width/2, y-15.0, 0., 0.9, 1) ; 


lbus (color, x, y, h) 
int color; 
float x, y, h; 

{ 

int i; float t; 

static float width=.24, tx[3]={.45, .45, -.9}, ty[3]={-.5, .5, .0}; 
c_jpintr(l); 
c_jpidex (color, 9) ; 
c_jcolor (color) ; 

c_jrect (x-width, y, x+64., y+width) ; 
for (i=0; i<5; i++) { 
t = i*16.+x; 

c_jrect (t-width, y-8., t, y) ; 
c_jrect (t-1 . 14, y-8.1, t+0.9, y-8.); 
c_jrect (t-1 . 14, y-8. 5, t+0.9, y-8. 6); 
c_jrect(t, y-h, t-width, y-8.6); 
c_jrmove (-. 60, .0); 
c_jrplgn(tx, ty, 3); 

} 

} 

back(x, y) 
float x, y; 

{ 

c_jpidex (CYAN , 900); 
c_jrect(87., 6., 98., 19.); 
c_jsize(0.8, 1.6); 
c_ j rmove (.7,2.); 
c_jlstrg(" Breadboard"); 
c_jrmove(0., 3.0); 
c_jlstrg(" to "); 
c_jrmove (0 . , 3.0); 
c_jlstrg(" Back"); 

} 

/******** end of file "isub pm.c" *********/ 
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Appendix D.l Main program to present the graphics displays 

/************* filename: laseps.c 

by Kwangsoo Yi **************/ 


tinclude "const. h" 

#include "stdio.h" 

main () 

{ 

float ratio, list [4]; 

int flag5=0, button, segnam, pickid, dumml[5], dumm2[5]; 
c_jbegin ( ) ; 

c_jdinit (DSP) ; 
c_jdevon (DSP) ; 
c_jbgbat(3); 

c_jvport (-1 . , 1 . , -.8, . 8) ; 
c_jwindo (0 . , 100 . , 0 . , 80 . ) ; 
c__jfsopn(2, DSP, 9, "dbg"); 
c_jsetdb(6); 

c_jdevwn (DSP, -1 . , 1 . , - . 8, . 8) ; 

c_jescap (4111, 0, 0, dumml, dumm2) ; /*dialog invisible*/ 
c_jddete(l); 
c_jsrest (2); 
c_jvsall(0); 
c_jvisbl (1, 1) ; 
c_jienab (DSP, 5, MOUSE); 
c_jenbat(); 

for (; ; ) { 

c_jpick(DSP, MOUSE, 1, &button, Ssegnam, &pickid) ; 
switch (pickid) { 
case 2 : 



sas () ; 
break; 

/* 

2.0 

*/ 

case 

3: 

sas () ; 
break; 

/* 

3.0 

*/ 

case 

4: 

bat () ; 
break; 

/* 

4.0 

*/ 

case 

5: 

bat ( ) ; 
break; 

/* 

5.0 

*/ 

case 

6: 

amps_lc () ; 
break; 

/* 

6.0 

*/ 

case 

7: 

p3 () ; 
break; 

/* 

7.0 

*/ 

case 

8: 

p3(); 

/* 

8.0 

*/ 


break; 
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case 9: 


9.0 */ 


pmad ( ) ; / * 

break; 
case 10: 

sumdataO; /* 10.0 */ 

break; 

case 11: /* end */ 

c_jescap (4110/ 0, 0/ dumml, dumm2) ; /*dialog 

visible*/ 

c_jidisa (DSP, 5, MOUSE); 
c_jdevof (DSP) ; 
c_jdend (DSP) ; 
c_jend(); 
exit (0) ; 
break; 

} 

c_ jbgbat ( 3 ) ; 
c_jvsall (0) ; 
c_jvisbl (1, 1) ; 
c_jenbat () ; 

} 

) 

/ ******* end of file "laseps.c" ********/ 
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************** j • 


Appendix D.2 — 2.0 SAS (1) and 3.0 SAS(2) 

/************* filename: sas.c 2.0 

# include "math.h" 

#iriclude "const. h" 

#include "stdio.h" 

sas ( ) 

{ 

static float rad, v, am, tl, t2; 
int i, sunst, j, button, segnam, pickid; 
char str[20], suns [10]; 

FILE *fp; 

c_jbgbat(3); /* 2.1 Envisible segment 2 */ 

c__jvisbl (1, 0) ; 
c_jvisbl (2,1); 
c_jenbat(); 

fp=f open ("sas .dat", "r" ) ; /* 2.2 Get input */ 

fscanf(fp, "%d, %f , %f , %f , %f ",&sunst, &am, &rad, &tl, &t2); 

c_jopen(); /* 2.3 Display the chart */ 

c__jsize (1 .2, 1.9); 
orbit (rad, 16., 50.); 

C_jcolor (BLACK) ; 

c_jmove(78., 62.); c_jlstrg (sunst =: =0 ? " ECLIPSE": " SUN");. 
c_jsize (1 . 0, 1. 9) ; 
c_jrmove(0., -6.); 
c_jrmove (0 . , -6.); 

c_jrmove(0., -6.); c_jlstrg (strcat (f2a (am, 7, 2, str) , " Amp")) 
c_jclose(); 

c_jienab (DSP, 5, MOUSE); 
do { 

c_jpick(DSP, MOUSE, 1, Sbutton, ssegnam, Spickid) ; 
switch (pickid) { 

case 1: return (1); break; 

} 

[while (pickid<8 && 0<pickid) ; 


orbit (rad, x, y ) 
float rad, x, y ; 


static float 

radius=14 . , 

xl [ 4 ] = 

{2.0, .0, -2.0, .0}, 




yl[4]= {.3, 

x2[8]= 

{0.5, 1.0, 

.5, .0, 

-.5, -1.0, -.5, .0), 

y2 [8] = 

{-.2, .4, 

• 2 , • 2 , 

.2, -.4, -.2, -.2}; 


c_jmove (x+ (radius+1 . 9) *cos (rad) , y+ (radius+1 . 9) *sin (rad) ) ; 
c_jrmove(0., —1.2) ; 
c_ j rdraw ( . 0 , 2 . ) ; 
c_jpintr (1) ; c_jpidex (GREEN, 100) ; 
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c_jrmove (-1 . 0, -.25); 
c_jrplgn(xl, yl, 4); 
c_jrmove ( . 0, -.6); 
c__jrplgn (xl, yl, 4); 
c_jrmove(.0, -.6); 
c_jpidex (WGREY, 100); 
c_jrplgn (x2, y2, 8); 
c_jrmove < . 0, -.6); 
c^jpidex (GREEN, 100); 
c_jrplgn(xl, yl, 4) ; 


/******* end 0 f fii e "sas.c" ********/ 
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★ ***★★★* '★*★*** j 


Appendix D.3 — 4.0 BAT(l) and 5.0 BAT (2) 
/************* filename: batl.c - 4.0 BAT 


#include "const. h" 

bat() 

{ 

int i, j, nm, duml[5], dum2[5]; 
static float volt [15] [12]; 

c_jbgbat(0); /* 4.1 Envisible dialog area */ 

c_jvsall(0); 

c_jescap (4115, 0, 0, duml, dum2) ; /*dialog clear*/ 
c_jescap (4110, 0, 0, duml, dum2 ) ; /*dialog visib*/ 
c_jenbat(); 

/* 4.3 Display data */ 

printf ("\n********** BATTERY CELL DATA (Volts) 
************************ ** )/ 

for (i=l; i<15; i++) { 
printf ("\n%2d", i) ; 

for ( j=0; j<l2; j++) { 

volt[i] [ j] =1 . +i* . 01+ . 01* j; 
printf ("% 6. 3f", volt[i][j]); 

} 

} 

printf C\n\n**** BATTERY CELL REFERENCE DATA 

***********************\j^”) • 

c_jpause(l); /* 4.4 Pause */ 

c_jescap (4111, 0, 0, duml, dum2) ; /*dialog invisib*/ 

} 

/******* end of file "batl.c" ********/ 
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Appendix D.4 — 6.0 AMPS_LC 

/************* filename: amps__lc.c — -- 6.0 **************/ 

#include " const. h" 

# include " stdio . h" 

amps_lc () 

{ 

static float v, am, st, t; 

static float volt [10] [2], amp [10] [2], swtemp [10] [2] , temp [10]; 
static int onof, onoff [10] [2] , onl0_3, flag61=0; 
int i, j, button, segnam, pickid; 
char str[20]; 

FILE *fp; 

c_jbgbat(3); /* 6.1 envisible segment 6 */ 

c_jvsall(0); 
c_jvisbl(6, 1); 

if (flag61==l) c_jvisbl(61, 1); 
c_jenbat(); 

fp=fopen ("lc.dat", "r") ; /* 6.2 get input */ 

for ( i=0 ; i<10; i++) { 
for (j=0; j<2; j++) { 

fscanf(fp, "%d, %f , %f , %f , %f ", &onof , &v, &am, &st, &t ) ; 
onoff [ i ] [ j] =onof; 
volt [i] [ j]=v; 
amp [ i ] [ j ] =am; 
swtemp [i] [j]=st; 

} 

temp [ i ] =t ; 

} 

onl0_3=0; 

if (f lag61 : ==0) { /* 6.3 Display the chart and diagram */ 

c_jropen (61) ; 

c_jcolor (BLACK) ; 
c_jmove(9.8, 47.); 
for (i=0; i<9; i++) { 

c_jrdraw (onoff [i] [0] -1 . , 4.); 
c_jrmove (4 . -onof f [i] [ 0] , -4.0); 
c~jrdraw (onoff [i] [1] -1 . , 4.); 
c_jrmove (6.5-onoff [i] [1] , -4.0); 

} 

c_jrdraw (onoff [ 9] [0] -1 . , 4.); 
c_jrmove (4 . -onof f [ 9] [ 0 ] , -4.0); 
c_jrdraw (onof f [ 9] [ 1 ] -1 . , 4.); 
c_jrmove (4 . -onof f [ 9] [ 1 ] , -4.0); 
c_jrdraw (onl0_3-l . , 4.); 

c_jsize (0.8, 1 . ) ; 
c_jmove (12 . 0, 32.4); 
for (i=0; i<10; i++) { 
for ( j=0; j<2 ; j++) { 
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if (onoff [i] [j]==l) { 
c_jlstrg (f2a (volt [i ] [ j ] , 7, 2, str) ) ; 

c_jrmove(.0, -3.); c_jlstrg (f2a (amp [i] [ j ] , 7, 2, str)); 
c_jrmove (2.0, -3.); c_jlstrg(i2a(j + l 

str) ) ; c_jrmove (-2 . 0/ . 0) ; 

) 

else c_ j rmove ( 0 . , -6.); 

c__ j rmo ve ( . 0 , -3.*(j+l)); c_jlstrg (f2a (swtemp[i] [ j] , 7, 2 

str) ) ; 

c_ j rmo ve (.0, 3.*(3+j)); 

} 

c__j rmove (. 0 , —3 .* (3+j) ) ; c_jlstrg (f2a (temp [i] , 7, 2, str)) 
c_jrmove (8 .5/ 15.0); 

} 

flag61=l; 

c_jrclos(); 

) 

c_jienab (DSP, 5, MOUSE); 

do{ /* 6.4 Input pickid */ 

c_jpick(DSP, MOUSE, 1, &button, &segnam, Spickid) ; 
switch (pickid) { 

case 1: ldat(l); /* 6.5 Data */ 

c__ jbgb at ( 3 ) ; c_ jvisbl ( 6, 1 ) ; c_ j vi sbl ( 6 1 , 1 ) 

c_jenbat () ; 

break; 

case 2: return(l); break; 


} 


} 

} while (1) ; 


/******* en d 0 f fife "amps_lc.c" ********/ 
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Appendix D.5 — 7.0 P3.1 amd 8.0 P3.2 

/*★★*★★*★*★*★* fil0n3.in©J p3 . C 'k'k'k’k-k-k'k-k'kic'k'k'k'k J 


p3() 

{ 

int segnam, pickid, dumml [5], dumm2[5]; 
c_jbgbat(0); 
c_jvsall(0); 

c_jescap (41.15, 0, 0, dumml , dumm2) ; /*dialog clear*/ 
c~jescap (4110, 0, 0, dumml, dumm2) ; /*dialog visib*/ 
c_jenbat(); 
c_jpause(l); 

c__jescap (4111, 0, 0, dumml, dumm2) ; /*dialog invisib*/ 


/******* end of file "p3.c” ********/ 
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Appendix D.6 -- 9.0 PMAD 

/************* filename: pmad.c 9.0 **************/ 

linclude "const. h" 
finclude "stdio.h". 

pmad ( ) 

{ 

static float v, am, volt[2][2], amp[2][2]; 
int i, j, button, segnam, pickid; 
char str [20]; 

FILE *fp; 

c_jbgbat(3); /* 9.1 Envisble segment 9 */ 

c_jvsall(0); 
c_jvisbl(9, 1); 
c_jenbat(); 

f p=f open ("pmad.dat", "r" ) ; /* 9.2 Get input */ 

for (i=0; i<2; i++) { 
for ( j=0; j<2; j++) { 

fscanf(fp, "%f / %f ",&v,&am); 
volt [ i ] [ j ] =v; amp [ i ] [ j ] =am; 

} 

} 

for (;;) { 

c_jopen(); /* 9.3 Display data */ 

c_jcolor (BLACK) ; -c_jsize ( . 8, 1.0); 

c_jmove(3., 72.); c_jlstrg (strcat (f2a (volt [0] [0] , 7, 2, str) , " 

V" )); 

c_jrmove(0., -1.5); c_jlstrg (strcat (f2a (amp [0] [0] , 7, 2, str)," 

Amp")); 

c_jrmove (84 . , 1.5); c_jlstrg (strcat (f2a (volt [1] [0] , 7, 2, str)," 

V" )); 

c_ j rmove ( 0 . , -1.5); c_jlstrg (strcat (f2a (amp [ 1 ][ 0 ] , 7, 2, str)," 

Amp")); 

c^jmove (14 . 5, 62.5); c_jlstrg (strcat (f2a (volt (0] [1] , 7, 2, str)," 

V")); 

c_jrmove(0., -1.3); c_jlstrg (strcat (f2a (amp[0] [1] , 7, 2, str)," 

Amp")); 

c_jmove (86.5, 62.5); c_jlstrg (strcat (f2a (volt [1] [1] , 7, 2, str)," 

V")); 

c__jrmove (0 . , -1.3); c_jlstrg (strcat (f2a (amp [1] [1] , 7, 2, str)," 

Amp")); 

c_jclose ( ) ; 

c_jienab (DSP, 5, MOUSE); 

c_jpick(DSP, MOUSE, 1 , &button, Ssegnam, Spickid) ; 
switch (pickid) { 
case 1 : 
case 2: 
case 3: 
case 4 : 
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case 5: 


pldcen (pickid) ; 

c_jbgbat (3) ;. c_jvsall(0); c_jvisbl(9, 1); c_jenbat(); 
break; 

case 9: return(l); break; 

} 

} 

} 


pldcen (pid) /* 9.4 PLDCEN --- */ 

int pid; 

{ 

static float v, am, volt [2] [2], amp [2] [2], current [2] [5] ; 
int i, j, button, segnam, pickid; 
char str [20]; 

FILE *fp; 

c_jbgbat (3) ; 

c_jvsall (0) ; 
c_jvisbl (10,1); 
c_jenbat ( ) ; 

f p=f open ("subpm.dat" , "r") ; 
for (i=0; i<2; i++) { 
for ( j=0; j<2 ; j++) { 

fscanf(fp, "%f,%f ”,&v,&am); 
volt [i] [ j]=v; amp [i] [ j] =am; 


/* 9.4.1 Envisible segment 10 */ 


/* 9.4.2 Get Input */ 


} 


} 


V" ) ) ; 


for (i=0; i<2; i++) { 
for ( j=0; j<5; j++) { 

fscanf(fp, "%f ",&am); 
current [i] [j]=am; 

} 

} 

c_jopen(); /* 9.4.3 Display data */ 

c_jcolor (BLACK) ; c_jsize(.7, 1.3); 

/*Bus A Data display*/ 


c jlstrg (strcat (f2a (volt [1] [0] , 7, 2, 


c_jmove(12., 41.5); 
for ( j=0; j<5; j++) { 

c_jlstrg (strcat (f2a (current [0] [ j ] , 7, 2, str) , "Amp" ) ) ; 
c_ j rmove (16., 0.); 

} 

/*Bus B Data display*/ 

c jmove(73., 68.); c jlstrg (strcat (f2a (volt [0] [1] , 7, 2, 


V" ) ) ; 

c_jmove (15 . , 

68.) ; 


c_j rmove (0 . , 

- 2 .); 

Amp") ) ; 




c j rmove ( 3 . , 

-11.) ; 

V" ) ) ; 




c j rmove ( 0 . , 

-2 . ) ; 

Amp") ) ; 




str) , " 
str) , " 
str) ," 
str) , " 


str) , " 
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c_jrmove(0., -2.); c_j lstrg (strcat ( f2a (amp [ 0 ] [ 1 ] , 7, 2, str)," 

Amp") ) ; 

c_jrmove (-3 . , -11.); c_jlstrg (strcat (f2a (volt [1] [1] , 7, 2, str)," 

V" ) ) ; 

c_jrmove(0., -2.); c_jlstrg (strcat (f2a (amp[l] [1] , 7, 2, str)," 

Amp")); 

c_jmove(20., 22.5); 
for ( j=0; j<5; j++) { 

c_j lstrg (strcat (f 2a (current [1] [j] , 7, 2, str) , "Amp") ) ; 
c_jrmove (16. , 0.); 

} 

c_jclose(); 
for (;;) { 

c_jpick(DSP, MOUSE, 1, &button, &segnam, Spickid) ; 
switch (pickid) { 

case 1: return (1) ; break; 

} 

} 

} 

/******* enc j 0 f fii e "pmad.c" ********/ 
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Appendix D.7 -- 10.0 SUMMARY_DATA 

/************* filename: sumdata.c — 10.0 Summary data **************/ 

sumdata() 

{ 

int segnam, pickid, dumml [5], dumm2[5]; 
float svolt, samp, bamp, lamp, chla, ch2a, ch3a; 
c_jbgbat (0) ; 

c_jvsall(0); /* 10.1 */ 

c_jescap (4115, 0, 0, dumml, dumm2) ; /*dialog clear*/ 
c__jescap (4110/ 0, 0, dumml, dumm2) ; /*dialog visib*/ 
c_jenbat(); 

print f ("******* * POWER SOURCE CONTROLLER SYSTEM DATA 

************\j-^n) • 

print f ("\nSYSTEM VOLTAGE (Volts) 

printf ("%10 . 3f\n", svolt); 

printf ("SOLAR ARRAY CURRENT (Amps):"); 

printf ("%10 . 3f\n", samp); 

printf ("BATTREY CURRENT (Amps):"); 

printf ("%10 . 3f\n", bamp); 

printf ("LOAD CURRENT (Amps) :"); 

printf ("%10 .3f\n", lamp); 

printf ("CHANNEL 1 CURRENT (Amps):"); 

printf ("%10.3f\n", chla); 

printf ("CHANNEL 2 CURRENT (Amps):"); 

printf ("%10 . 3f\n", ch2a) ; 

printf ("CHANNEL 3 CURRENT (Amps):"); 

printf ("%10 . 3f\n", ch3a); 

printf ("\n***** BATTERY TEMPERATURE SENSOR DATA (DEG. F) 

*********\j^HJ • 

printf ("\n") ; 
c_jpause(l); 

c_jescap (4111, 0, 0, dumml, dumm2) ; /*dialog invisib*/ 

} 

/******* end of file "sumdata.c" ********/ 
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Appendix D.8 — Load Center Data 

/************* filename: ldat.c - LOAD_CENTER/DATA* *************/ 

ldat() 

{ 

int i, sw[10], ch[10], dumml [5], dumm2[5]; 
float amp [10]; 

c_jbgbat(3); 

c_jvsall(0); ' 

c_jescap (4115, 0, 0, dumml, dumm2) ; /*dialog clear*/ 
c_jescap (4110, 0, 0, dumml, dumm2) ; /*dialog visib*/ 
c_jenbat(); 

print f (" SWITCH CHANNEL LOAD\n") ; 

print f (" RPC ON CONNECTION CURRENT \n" ) ; 

printf(" \n" ) ; 

for (i=0; i<10; i++) { 

printf(" %2d %9d %9d %7.2f\n", i+1, sw[i], ch[i] 

amp [ i ] ) ; 

} 

print f ("\n") ; 

print f (" \n CHANNEL DESIRED RESULTING 

RESULTING\n" ) ; 

print f (" NUMBER LOADING LOADING MISMATCH\n" ) ; 

print f ( " \n" ) ; 

c_jpause (1) ; 

c_jescap (4111, 0, 0, dumml, dumm2) ; /*dialog invisib*/ 

} 

/******* end of file "ldat.c" ********/ 
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Appendix D.9 — Library functions 

j *★*★**★*★*★* ★ filsnsinsi libl • c 

# include "math.h" 

char *i2a(n, str) 
int n; char str[]; 

{int q, i, rem; 

i = (n<10) ? 1: loglO ( (float) n) +1; 
str [i] = ' \0' ; 
do { 

q = n/10; 

rem = n - q*10; 
n = q; 

str[ — i] = rem + 'O'; 

} while (i>0); 
return (str); 

} 

char *f2a(r, 1, d, str) 

float r; register int 1, d; char str[]; 
{register int n, q, rem; int j; 
strcpy(str," "); 

for (j=0; j<d; j++) r *= 10; 
n = r; 

str [ 1 ] = '\0'; 
for (j=0; j<d; j++) { 
q = n/10; 
rem = n - q*10; 
n = q; 

str[ — 1] = rem + 'O'; 

} 

str[— 1] = ' ; 

do { 

q = n/10; 

rem = n - q*10; 

n = q; 

str[ — 1] = rem + 'O'; 

} while (n>0); 
return (str) ; 

} 

/******* end of file "libl.c" ********/ 
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Include file 


Appendix D.10 — 


/************* filename: 

#define DSP 1 
fdefine RED 1 
Idefine GREEN 2 
#define YELLO 3 
#define BLUE 4 
#define MAGEN 5 
#define CYAN 6 
#define WHITE 7 
# define BLACK 8 
#define WGREY 15 
fdefine GREY 11 
#define ORANG 60 
#define MOUSE 3 
#define ON 1 
fdefine OFF 0 
/******* end of file 


const .h 


"const .h 



